home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
86xx
/
8608a.d64
/
demo modul34
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
355b
|
18 lines
100 REM TEXT IN DREIECKFORM AUSGEBEN
110 DO
120 : PRINT "BITTE TEXT EINGEBEN" : INPUT X$ : PRINT
130 : N=1 : Q=1
140 : DO WHILE N>0
150 : PRINT LEFT$(X$,N)
160 : N=N+Q
170 : IF N=LEN(X$) THEN Q=-1
180 : LOOP
190 : PRINT
200 : DO
210 : INPUT "NOCHMAL (J/N) ";A$
220 : EXIT IF A$="J" OR A$="N"
230 : PRINT "FALSCHE EINGABE"
240 : LOOP
250 LOOP UNTIL A$="N"
260 END